home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / h-m / mainactor / rexx / saveiff.ma < prev    next >
Text File  |  1978-11-24  |  1KB  |  40 lines
  1. /*
  2.  *        SaveIFF V1.0, 1993 Markus Moenig
  3.  *
  4.  *        Save the frames/pics of the source project as IFF pictures.
  5.  *        The base name is the source project name + ".IFF".
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. ADDRESS MAINACTOR
  11.  
  12. ScreenToFront                              /* flip screen to front */ 
  13.  
  14.                                            /* print message */
  15.  
  16. PrintAndStoreTXT "SaveIFF V1.0 saving frames/pics as IFF ..."
  17.  
  18. GetSPName
  19.  
  20. IF rc = 0 THEN DO                          /* check if project loaded */
  21.  
  22.     PARSE VAR RESULT firstname secondname .  /* store name of the animation */
  23.                                              /* or the names of the picture list */
  24.  
  25.     GetSPSaver                    
  26.     PARSE VAR RESULT savertype savername .   /* store saver module */
  27.  
  28.  
  29.     SetSPSaver PIC IFF                       /* Set saver module to IFF */
  30.  
  31.     newname = firstname || ".IFF"            /* new name = old one + ".IFF" */
  32.  
  33.     SelectAll                                /* select all frames/pictures */
  34.  
  35.     Save newname                             /* save em as IFF pics */
  36.  
  37.     SetSPSaver savertype savername           /* restore old saver module */
  38.  
  39. END
  40.